<%while not ds.eof%>
代理名：<%=ds("username")%> 　">切换成此代理角色>>>(代理区点注销会自动退回管理区)　

余额：<%=ds("usermoney")%> 元
网上支付待入帐金额：　<%=ds("waitmoney")%> 　元 　　&usertype=agent">马上将待入帐金额清零>>>　

名下所有用户的资金总和： <% 'domain Set dsagnuserall = Server.CreateObject("ADODB.Recordset") Sql="Select usermoney=sum(usermoney) from FreeHost.FreeHost_User WHERE (agent1='"&ds("username")&"' or agent2='"&ds("username")&"')" dsagnuserall.Open Sql,conn,1,1%> <%=dsagnuserall("usermoney")%>　元
<% 'domain Set dsagnall = Server.CreateObject("ADODB.Recordset") Sql="Select usermoney=sum(usermoney) from FreeHost.FreeHost_Agent WHERE (agent1='"&ds("username")&"' or agent2='"&ds("username")&"')" dsagnall.Open Sql,conn,1,1%> 名下所有代理的资金总和：<%=dsagnall("usermoney")%>　元
<% dsagnall.close set dsagnall=nothing dsagnuserall.close set dsagnuserall=nothing %>
类型：<%=ds("agenttype")%><%if ds("agenttype")="n" then%>(未审批)<%end if%>
　&agenttype=y">手工设置此代理的价格>>>

电子邮件：><%=ds("email")%> 　　 　&title=<%=ds("username")%>" target="_blank">发邮件给这个代理>>>
上级代理名：<%if ds("agent1")<>"n" then%>" target="_blank"><%=ds("agent1")%><%end if%>

QQ：<%=ds("qq")%><% SERVER_NAME=Request.ServerVariables("SERVER_NAME") If Request.ServerVariables("HTTP_FreeHostAPISITE")<>"" Then SERVER_NAME=Request.ServerVariables("HTTP_FreeHostAPISITE") %> 　&Site=<%=SERVER_NAME%>&Menu=yes" title="发送即时消息给用户"" target="_blank">发送即时消息给代理>>
中文名：<%=ds("truename")%>
地址： <%=ds("prv")%>/<%=ds("city")%>/<%=ds("address")%> 　联系人：<%=ds("contact")%> 邮编：<%=ds("postid")%>
身份证号码： <%=ds("perid")%>
电话：<%=ds("tel")%>
手机：<%=ds("mobi")%>
传真：<%=ds("fax")%>
注册ip：<%=ds("regip")%>
注册时间：<%=ds("regtime")%>
服务的域名:
<% 'domain Set dsagentdomain = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Agent_ALLdomain where username='"&ds("username")&"'" dsagentdomain.Open Sql,conn,1,1 while not dsagentdomain.Eof%> " target="_blank">http://<%=dsagentdomain("domain")%>
<% dsagentdomain.movenext Wend dsagentdomain.close set dsagentdomain=nothing %>

名下已开通的虚拟主机:
<% Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Host where agent1='"&ds("username")&"'" dsph.Open Sql,conn,1,1 if dsph.Eof then%> 没有已开通的虚拟主机. <%else%> <%while not dsph.Eof%> <% Hosttype=dsph("Hosttype") Set ori_host_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HostProductlist where Hosttype='"&dsph("Hosttype")&"'" ori_host_name.Open Sql,conn,1,1 if not ori_host_name.eof then Set newname_host = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_HostProductlist_AGN where agent1='"&dsph("agent1")&"' and id='"&ori_host_name("id")&"'" newname_host.Open Sql,conn,1,1 if not newname_host.eof then Hosttype=newname_host("Hosttype") end if end if hostname=dsph("hostname") hostname=replace(hostname, ":80:","") hostname_arry=Split(hostname, ",") Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serverlist where id='"&dsph ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 ostype=dsserver("ostype") useisp=dsserver("useisp") isuseCDN=dsserver("isuseCDN") %> <% dsph.movenext wend%>

产品类型	用户名	域　名	FTP用户名	IP 地址	开通日期	到期日期	状态	操作	ICP
<%=Hosttype%>	"><%=dsph("username")%>	<%for idname=0 to ubound(hostname_arry)%> <%=hostname_arry(idname)%> <%next%>	<%=dsph("ftpname")%>	<%if isuseCDN=true then%>请用面板中的别名解析<%else%><%if dsserver("ostype")="linux" then%> <%if dsph("status")="暂停" or dsph("status")="停止" then%>暂停或停止状态不能登陆DA后台<%else%>&go=e" target="_blank">进入DA接口后台 <%end if%> <%end if%><% Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Host_IP where HostID="&dsph("id") dsX.Open Sql,conn,1,1 If dsX.Eof Then%> <% '服务器 %> <%=dsserver("ip")%> <%dsserver.close%> <%else while not dsX.eof %> <%=dsX("IP")%> <% dsX.movenext wend end if%><%end if%>	<%=formatdatetime(dsph("starttime"),1)%>	<%=formatdatetime(dsph("endtime"),1)%>	<%if dsph("endtime")>NOW then%> <%if dsph("istest")="y" then%> 试用 <%else%> <%=dsph("status")%> <%end if%> <%else%> 过期 <%if dsph("status")="暂停" then%> 暂停 <%end if%> <%end if%>	&id=<%=dsph("id")%>">管理	&go=b"> <%if dsph("beianstatus")="备案成功" then%> 成功 <%else%> 备案 <%end if%>

<% dsph.close set dsph=nothing end if%>
名下已开通的邮箱产品:
<% Set dsphemail = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Email where agent1='"&ds ("username")&"'" dsphemail.Open Sql,conn,1,1 if dsphemail.Eof then%> 没有已开通的邮箱产品. <%else%> <%while not dsphemail.Eof%> <% Emailtype=dsphemail("Emailtype") Set ori_email_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_EmailProductlist where Emailtype='"&dsphemail("Emailtype")&"'" ori_email_name.Open Sql,conn,1,1 if not ori_email_name.eof then Set newname_email = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_EmailProductlist_AGN where agent1='"&dsphemail("agent1")&"' and id='"&ori_email_name("id")&"'" newname_email.Open Sql,conn,1,1 if not newname_email.eof then Emailtype=newname_email("Emailtype") end if end if %> <% dsphemail.movenext wend%>

产品类型	用户名	绑定域名	所属父产品	IP 地址	开通日期	到期日期	状态	操作
<%=Emailtype%>	"><%=dsphemail("username")%>	<% Set dspdallemail = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_ALLEmail where username='"&dsphemail ("username")&"' and PdEID='"&dsphemail ("id")&"' order by emailname" dspdallemail.Open Sql,conn,1,1 if not dspdallemail.eof then if not isnull(dspdallemail("emailname")) then %> <%= replace(dspdallemail("emailname"),"webmaster@","")%> <% end if end if%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&dsphemail("byhost")&"' and username='"&dsphemail("username")&"'" dsph.Open Sql,conn,1,1 if not dsph.Eof then nohost=false%> ">虚拟主机(<%=dsph("ftpname")%>) <%else nohost=true end if%> <% Set dsdm = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Domain where username='"&dsphemail ("username")&"' and id ='"&dsphemail("bydomain")&"'" dsdm.Open Sql,conn,1,1 if not dsdm.Eof then nodomain=false%> ">域名(<%=dsdm("domain")%>) <%else nodomain=true end if if nohost and nodomain then%> 无 <%end if%>	<% Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serveremaillist where id='"&dsphemail ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 %> <%=dsserver("ip")%> <%dsserver.close%>	<%=formatdatetime(dsphemail("starttime"),1)%>	<%=formatdatetime(dsphemail("endtime"),1)%>	<%if dsphemail("endtime")>NOW then%> <%if dsphemail("istest")="y" then%> 试用 <%else%> <%=dsphemail("status")%> <%end if%> <%else%> 过期 <%if dsphemail("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">管理

<% dsphemail.close set dsphemail=nothing end if %>

名下已开通的数据库产品:
<% Set dsphSql = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Sql where agent1='"&ds ("username")&"'" dsphSql.Open Sql,conn,1,1 if dsphSql.Eof then%> 没有已开通的数据库产品. <%else%> <%while not dsphSql.Eof%> <% Sqltype=dsphSql("Sqltype") Set ori_Sql_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_SqlProductlist where Sqltype='"&dsphSql("Sqltype")&"'" ori_Sql_name.Open Sql,conn,1,1 if not ori_Sql_name.eof then Set newname_Sql = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_SqlProductlist_AGN where agent1='"&dsphSql("agent1")&"' and id='"&ori_Sql_name("id")&"'" newname_Sql.Open Sql,conn,1,1 if not newname_Sql.eof then Sqltype=newname_Sql("Sqltype") end if end if %> <% dsphSql.movenext wend%>

产品类型	用户名	数据库名	所属父产品	IP 地址	开通日期	到期日期	状态	操作
<%=Sqltype%>	"><%=dsphSql("username")%>	<%=dsphSql("sqlname")%>	<% Set dsph = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Host where id='"&dsphSql("byhost")&"' and username='"&dsphSql("username")&"'" dsph.Open Sql,conn,1,1 if not dsph.Eof then nohost=false%> &go=a">虚拟主机(<%=dsph("ftpname")%>) <%else%> 无 <%end if%>	<% Set dsserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Serversqllist where id='"&dsphSql ("ServerlistID")&"'" dsserver.Open Sql,conn,1,1 %> <%=dsserver("ip")%> <%dsserver.close%>	<%=formatdatetime(dsphSql("starttime"),1)%>	<%=formatdatetime(dsphSql("endtime"),1)%>	<%if dsphSql("endtime")>NOW then%> <%if dsphSql("istest")="y" then%> 试用 <%else%> <%=dsphSql("status")%> <%end if%> <%else%> 过期 <%if dsphSql("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">管理

<% dsphSql.close set dsphSql=nothing end if %>

名下已开通的域名产品:
<% Set dsdm = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Domain where agent1='"&ds ("username")&"'" dsdm.Open Sql,conn,1,1 if dsdm.Eof then%> 没有已开通的域名产品. <%else%> <%while not dsdm.Eof%> <% dsdm.movenext wend%>

编号	用户名	域名	状态	注册时间	到期时间	初始密码	信息	操作
<%=dsdm("id")%>	"><%=dsdm("username")%>	" ><%=dsdm("Domain")%>	<%if dsdm("endtime") 过期 <%else%> <%=dsdm("status")%> <%end if%>	<%=formatdatetime(dsdm("starttime"),1)%>	<%if not isnull(dsdm("endtime")) then%> <%=formatdatetime(dsdm("endtime"),1)%> <%end if%>	<%=dsdm("inipass")%> " target="_blank">重置密码	<%if dsdm("status")="预注册成功" then%> " target="_blank">查询 <%else%> " target="_blank">管理DNS <%end if%>	" >管理

<% dsdm.close set dsdm=nothing end if %>
已开通的IDC产品:
<% Set dsphIDC = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_IDC where agent1='"&ds ("username")&"'" dsphIDC.Open Sql,conn,1,1 if dsphIDC.Eof then%> 没有已开通的IDC产品. <%else%> <%while not dsphIDC.Eof%> <% IDCtype=dsphIDC("IDCtype") Set ori_IDC_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_IDCProductlist where IDCtype='"&dsphIDC("IDCtype")&"'" ori_IDC_name.Open Sql,conn,1,1 if not ori_IDC_name.eof then Set newname_IDC = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_IDCProductlist_AGN where agent1='"&dsphIDC("agent1")&"' and id='"&ori_IDC_name("id")&"'" newname_IDC.Open Sql,conn,1,1 if not newname_IDC.eof then IDCtype=newname_IDC("IDCtype") end if end if %> <% dsphIDC.movenext wend%>

产品类型	开通日期	到期日期	状态	操作
<%=IDCtype%>	<%=formatdatetime(dsphIDC("starttime"),1)%>	<%=formatdatetime(dsphIDC("endtime"),1)%>	<%if dsphIDC("endtime")>NOW then%> <%if dsphIDC("istest")="y" then%> 试用 <%else%> <%=dsphIDC("status")%> <%end if%> <%else%> 过期 <%if dsphIDC("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">管理

<% dsphIDC.close set dsphIDC=nothing end if %>
已开通的云服务器产品:
<% Set dsphVPS = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS where agent1='"&ds ("username")&"'" dsphVPS.Open Sql,conn,1,1 if dsphVPS.Eof then%> 没有已开通的云服务器产品. <%else%> <%while not dsphVPS.Eof%> <% vpstype=dsphVPS("vpstype") Set ori_VPS_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_VPSProductlist where vpstype='"&dsphVPS("vpstype")&"'" ori_VPS_name.Open Sql,conn,1,1 if not ori_VPS_name.eof then Set newname_VPS = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_VPSProductlist_AGN where agent1='"&dsphVPS("agent1")&"' and id='"&ori_VPS_name("id")&"'" newname_VPS.Open Sql,conn,1,1 if not newname_VPS.eof then vpstype=newname_VPS("vpstype") end if end if %> <% dsphVPS.movenext wend%>

产品类型	云服务器名	已分配IP	开通日期	到期日期	状态	操作
<%=vpstype%>	<%=dsphVPS("vpsname")%>	<% if dsphVPS("isagentpd")=true then%> <%=dsphVPS("AgnUpIP")%> <% else Set dsX = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where VPSID="&dsphVPS("id") dsX.Open Sql,conn,1,1 while not dsX.eof %> <%=dsX("IP")%> <% if dsX("portstart")>0 then if isONEip=true then Set dsPORTserver = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_ServerPORTlist where id='"&useportserver&"'" dsPORTserver.Open Sql,conn,1,1%> <%=dsPORTserver("IP")%>(公网) <%end if end if dsX.movenext wend end if %>	<%=formatdatetime(dsphVPS("starttime"),1)%>	<%=formatdatetime(dsphVPS("endtime"),1)%>	<%if dsphVPS("endtime")>NOW then%> <%if dsphVPS("istest")="y" then%> 试用<%else%> <%=dsphVPS("status")%> <%end if%> <%else%> 过期 <%if dsphVPS("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">管理

<% dsphVPS.close set dsphVPS=nothing end if %>
已开通的CDN产品:
<% Set dsphCDN = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_CDN where agent1='"&ds ("username")&"'" dsphCDN.Open Sql,conn,1,1 if dsphCDN.Eof then%> 没有已开通的CDN产品. <%else%> <%while not dsphCDN.Eof%> <% CDNtype=dsphCDN("CDNtype") Set ori_CDN_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_CDNProductlist where CDNtype='"&dsphCDN("CDNtype")&"'" ori_CDN_name.Open Sql,conn,1,1 if not ori_CDN_name.eof then Set newname_CDN = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_CDNProductlist_AGN where agent1='"&dsphCDN("agent1")&"' and id='"&ori_CDN_name("id")&"'" newname_CDN.Open Sql,conn,1,1 if not newname_CDN.eof then CDNtype=newname_CDN("CDNtype") end if end if %> <% dsphCDN.movenext wend%>

产品类型	CDN名	域名	开通日期	到期日期	状态	操作
<%=CDNtype%>	<%=dsphCDN("ftpname")%>	<% hostname=dsphCDN("hostname") If IsNull(dsphCDN("hostname")) Then hostname="" 'hostname=replace(hostname, ":80:","") hostname_arry=Split(hostname, ",") set ComX=server.CreateObject("freehost_com_7i24.FreehostM") for idname=0 to ubound(hostname_arry) domary=Split(hostname_arry(idname),":") domain=domary(2) %> <%if ComX.actoidc_7i24_com(cstr(domain))<>domain then%> <%=ComX.actoidc_7i24_com(cstr(domain))%> (<%=domain%>) <%else%> <%=domain%> <%end if%> (端口:<%=domary(1)%> IP:<%=domary(0)%>) <%next%>	<%=formatdatetime(dsphCDN("starttime"),1)%>	<%=formatdatetime(dsphCDN("endtime"),1)%>	<%if dsphCDN("endtime")>NOW then%> <%if dsphCDN("istest")="y" then%> 试用 <%else%> <%=dsphCDN("status")%> <%end if%> <%else%> 过期 <%if dsphCDN("status")="暂停" then%> 暂停 <%end if%> <%end if%>	">管理">

<% dsphCDN.close set dsphCDN=nothing end if %>
已开通的其他类产品:
<% Set dsphOther = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_Product_Other where agent1='"&ds ("username")&"'" dsphOther.Open Sql,conn,1,1 if dsphOther.Eof then%> 没有已开通的其他类产品. <%else%> <%while not dsphOther.Eof%> <% Othertype=dsphOther("Othertype") Set ori_Other_name = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_OtherProductlist where Othertype='"&dsphOther("Othertype")&"'" ori_Other_name.Open Sql,conn,1,1 if not ori_Other_name.eof then Set newname_Other = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_OtherProductlist_AGN where agent1='"&dsphOther("agent1")&"' and id='"&ori_Other_name("id")&"'" newname_Other.Open Sql,conn,1,1 if not newname_Other.eof then Othertype=newname_Other("Othertype") end if end if %> <% dsphOther.movenext wend%>

产品类型	开通日期	到期日期	状态	操作
<%=Othertype%>	<%=formatdatetime(dsphOther("starttime"),1)%>	<%=formatdatetime(dsphOther("endtime"),1)%>	<%if dsphOther("endtime")>NOW then%> <%if dsphOther("istest")="y" then%> 试用 <%else%> <%=dsphOther("status")%> <%end if%> <%else%> 过期 <%if dsphOther("status")="暂停" then%> 暂停 <%end if%> <%end if%>	管理

<% dsphOther.close set dsphOther=nothing end if %>
财务记录：
<% Set dsmoney = Server.CreateObject("ADODB.Recordset") Sql="Select * from FreeHost.FreeHost_moneylog where isdel is null and (username='"&ds("username")&"' or opusername='"&session("username")&"' or agent1='"&ds("username")&"' or agent2='"&ds("username")&"') order by id desc" dsmoney.PageSize = 25 dsmoney.Open Sql,conn,1,1 if dsmoney.Eof then %>
数据库中不存在款项操作记录。 <% else if Request.ServerVariables("QUERY_STRING")<>"" then ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn") else ask=Split("freehost=1", "") ask(0)="freehost=lsoft" end if pn=1 if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn") If dsmoney.RecordCount <> 0 Then dsmoney.AbsolutePage = CLng(pn) if clng(pn)<=10 then begini=1 if dsmoney.PageCount<=10 then endini=dsmoney.PageCount else endini=10 end if end if %> <%if clng(pn)<=10 then%>最新 <%for i=begini to endini if clng(pn)=i then%>[<%=i%>]<%else%>?<%=ask(0)%>&pn=<%=i%>">[<%=i%>]<%end if%>　<%next%> <%else%>　?<%=ask(0)%>&pn=1">最新[1]--[10]　　现在是第[<%=pn%>]页 　共<%=dsmoney.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%>?<%=ask(0)%>&pn=<%=pn-1%>">上一页 <%End If%>|<%If Clng(pn)?<%=ask(0)%>&pn=<%=pn+1%>">下一页 <%End If%> <% For N=1 To dsmoney.PageSize If dsmoney.RecordCount=0 Then Exit For %> <% If clng(pn)=dsmoney.PageCount Then I = dsmoney.RecordCount - (dsmoney.PageCount-1) * dsmoney.PageSize If N=I Then Exit For End If dsmoney.movenext Next%>

编号	用户名	操作人	时间与IP	金额	余额	原因	内部记录	产品	ID
<%=dsmoney("id")%>	" target="_blank"><%=dsmoney("username")%> <%if dsmoney("isagent")="y" then%> ™ <%end if%>	" target="_blank"><%=dsmoney("opusername")%>	<%=dsmoney("attime")%> <%=dsmoney("ip")%>	"> <%if dsmoney("isadd")="y" then%>+<%elseif dsmoney("isadd")="n" then%>-<%end if%><%=replace(formatNumber(dsmoney("usermoney"),2,-1),".00","")%> 元	"> <%=dsmoney("agnEndmoney")%>	<%=dsmoney("forwhat")%>	<%=dsmoney("corewhat")%>	<%=dsmoney("whichProduct")%>	<%=dsmoney("pdid")%>

<%end if dsmoney.close set dsmoney=nothing%>

<% ds.movenext wend ds.Close set ds=nothing conn.Close set conn=nothing %>